<WebService(Namespace:="http://www.wrox.com/helloworld")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1, EmitConformanceClaims:=True)> _  
Public Class HelloSoapHeader
    Inherits System.Web.Services.WebService
    
    Public myHeader As HelloHeader
    
    <WebMethod(), SoapHeader("myHeader")> _
    Public Function HelloWorld() As String
        If (myHeader Is Nothing) Then
           Return "Witaj, wiecie"
        Else
           Return "Witaj, " & myHeader.Username & ". " & _
              "<br>Twoje haso to: " & myHeader.Password
        End If
    End Function

End Class
